/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / M / Mac F2C 1.2.1.sit / Mac F2C 1.2.1 / Test Project ƒ / test.f

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 06 74 65 73 74 2e 66 | 00 00 00 00 00 00 00 00 |..test.f|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4b 41 48 | 4c 00 00 00 00 00 00 00 |.TEXTKAH|L.......|
|00000050| 00 00 00 00 00 16 c7 00 | 00 01 9a ab 96 3e 49 ab |........|.....>I.|
|00000060| 96 3e 49 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.>I.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 fa 62 00 00 |........|.....b..|
|00000080| 09 50 72 6f 67 72 61 6d | 20 74 65 73 74 5f 66 32 |.Program| test_f2|
|00000090| 63 0d 09 0d 63 09 54 68 | 69 73 20 69 73 20 61 20 |c...c.Th|is is a |
|000000a0| 46 4f 52 54 52 41 4e 20 | 70 72 6f 67 72 61 6d 20 |FORTRAN |program |
|000000b0| 74 6f 20 74 65 73 74 20 | 4d 61 63 20 46 32 43 20 |to test |Mac F2C |
|000000c0| 76 31 2e 31 0d 0d 09 63 | 68 61 72 61 63 74 65 72 |v1.1...c|haracter|
|000000d0| 09 6a 75 6e 6b 2a 32 0d | 0d 09 77 72 69 74 65 28 |.junk*2.|..write(|
|000000e0| 20 36 2c 20 2a 20 29 20 | 27 2a 2a 2a 2a 2a 20 20 | 6, * ) |'*****  |
|000000f0| 20 49 6e 70 75 74 2f 4f | 75 74 70 75 74 20 54 65 | Input/O|utput Te|
|00000100| 73 74 20 20 20 2a 2a 2a | 2a 2a 27 0d 09 63 61 6c |st   ***|**'..cal|
|00000110| 6c 20 69 5f 6f 5f 74 65 | 73 74 0d 09 77 72 69 74 |l i_o_te|st..writ|
|00000120| 65 28 36 2c 2a 29 20 27 | 5c 6e 2a 2a 2a 2a 2a 20 |e(6,*) '|\n***** |
|00000130| 20 20 45 6e 64 20 6f 66 | 20 49 2f 4f 20 74 65 73 |  End of| I/O tes|
|00000140| 74 2c 20 68 69 74 20 72 | 65 74 75 72 6e 20 74 6f |t, hit r|eturn to|
|00000150| 20 63 6f 6e 74 69 6e 75 | 65 2e 2e 2e 27 0d 09 72 | continu|e...'..r|
|00000160| 65 61 64 28 35 2c 39 39 | 29 20 6a 75 6e 6b 0d 39 |ead(5,99|) junk.9|
|00000170| 39 09 66 6f 72 6d 61 74 | 28 20 61 31 20 29 0d 0d |9.format|( a1 )..|
|00000180| 09 77 72 69 74 65 28 20 | 36 2c 20 2a 29 20 27 5c |.write( |6, *) '\|
|00000190| 6e 2a 2a 2a 2a 2a 20 20 | 20 49 6e 74 65 67 65 72 |n*****  | Integer|
|000001a0| 20 4d 61 74 68 20 54 65 | 73 74 20 20 20 2a 2a 2a | Math Te|st   ***|
|000001b0| 2a 2a 27 09 0d 09 63 61 | 6c 6c 20 69 6e 74 5f 74 |**'...ca|ll int_t|
|000001c0| 65 73 74 28 20 31 30 20 | 29 0d 09 77 72 69 74 65 |est( 10 |)..write|
|000001d0| 28 36 2c 2a 29 20 27 5c | 6e 2a 2a 2a 2a 2a 20 20 |(6,*) '\|n*****  |
|000001e0| 20 45 6e 64 20 6f 66 20 | 69 6e 74 65 67 65 72 20 | End of |integer |
|000001f0| 6d 61 74 68 20 74 65 73 | 74 2c 20 68 69 74 20 72 |math tes|t, hit r|
|00000200| 65 74 75 72 6e 20 74 6f | 20 63 6f 6e 74 69 6e 75 |eturn to| continu|
|00000210| 65 2e 2e 2e 27 0d 09 72 | 65 61 64 28 35 2c 39 39 |e...'..r|ead(5,99|
|00000220| 29 20 6a 75 6e 6b 0d 0d | 09 77 72 69 74 65 28 20 |) junk..|.write( |
|00000230| 36 2c 20 2a 20 29 20 27 | 5c 6e 2a 2a 2a 2a 2a 20 |6, * ) '|\n***** |
|00000240| 20 20 46 6c 6f 61 74 69 | 6e 67 20 50 6f 69 6e 74 |  Floati|ng Point|
|00000250| 20 4d 61 74 68 20 54 65 | 73 74 20 20 20 2a 2a 2a | Math Te|st   ***|
|00000260| 2a 2a 27 0d 09 63 61 6c | 6c 20 66 6c 74 5f 74 65 |**'..cal|l flt_te|
|00000270| 73 74 28 20 31 30 20 29 | 0d 09 77 72 69 74 65 28 |st( 10 )|..write(|
|00000280| 36 2c 2a 29 20 27 5c 6e | 2a 2a 2a 2a 2a 20 20 20 |6,*) '\n|*****   |
|00000290| 45 6e 64 20 6f 66 20 66 | 6c 6f 61 74 69 6e 67 20 |End of f|loating |
|000002a0| 70 6f 69 6e 74 20 6d 61 | 74 68 20 74 65 73 74 2c |point ma|th test,|
|000002b0| 20 68 69 74 20 72 65 74 | 75 72 6e 20 74 6f 20 63 | hit ret|urn to c|
|000002c0| 6f 6e 74 69 6e 75 65 2e | 2e 2e 27 0d 09 72 65 61 |ontinue.|..'..rea|
|000002d0| 64 28 35 2c 39 39 29 20 | 6a 75 6e 6b 0d 0d 09 77 |d(5,99) |junk...w|
|000002e0| 72 69 74 65 28 20 36 2c | 20 2a 20 29 20 27 5c 6e |rite( 6,| * ) '\n|
|000002f0| 2a 2a 2a 2a 2a 20 20 20 | 41 6c 67 65 62 72 61 69 |*****   |Algebrai|
|00000300| 63 20 46 75 6e 63 74 69 | 6f 6e 20 54 65 73 74 20 |c Functi|on Test |
|00000310| 20 20 2a 2a 2a 2a 2a 27 | 0d 09 63 61 6c 6c 20 61 |  *****'|..call a|
|00000320| 6c 67 5f 74 65 73 74 28 | 20 31 30 20 29 0d 09 77 |lg_test(| 10 )..w|
|00000330| 72 69 74 65 28 36 2c 2a | 29 20 27 5c 6e 2a 2a 2a |rite(6,*|) '\n***|
|00000340| 2a 2a 20 20 20 45 6e 64 | 20 6f 66 20 61 6c 67 65 |**   End| of alge|
|00000350| 62 72 61 69 63 20 66 75 | 6e 63 74 69 6f 6e 20 74 |braic fu|nction t|
|00000360| 65 73 74 2c 20 68 69 74 | 20 72 65 74 75 72 6e 20 |est, hit| return |
|00000370| 74 6f 20 63 6f 6e 74 69 | 6e 75 65 2e 2e 2e 27 0d |to conti|nue...'.|
|00000380| 09 72 65 61 64 28 35 2c | 39 39 29 20 6a 75 6e 6b |.read(5,|99) junk|
|00000390| 0d 0d 09 77 72 69 74 65 | 28 20 36 2c 20 2a 20 29 |...write|( 6, * )|
|000003a0| 20 27 5c 6e 2a 2a 2a 2a | 2a 20 20 20 54 72 61 6e | '\n****|*   Tran|
|000003b0| 73 63 65 6e 64 65 6e 74 | 61 6c 20 46 75 6e 63 74 |scendent|al Funct|
|000003c0| 69 6f 6e 20 54 65 73 74 | 20 20 20 2a 2a 2a 2a 2a |ion Test|   *****|
|000003d0| 27 0d 09 63 61 6c 6c 20 | 74 72 6e 5f 74 65 73 74 |'..call |trn_test|
|000003e0| 0d 09 77 72 69 74 65 28 | 36 2c 2a 29 20 27 5c 6e |..write(|6,*) '\n|
|000003f0| 2a 2a 2a 2a 2a 20 20 20 | 45 6e 64 20 6f 66 20 74 |*****   |End of t|
|00000400| 72 61 6e 73 63 65 6e 64 | 65 6e 74 61 6c 20 66 75 |ranscend|ental fu|
|00000410| 6e 63 74 69 6f 6e 20 74 | 65 73 74 2c 20 68 69 74 |nction t|est, hit|
|00000420| 20 72 65 74 75 72 6e 20 | 74 6f 20 63 6f 6e 74 69 | return |to conti|
|00000430| 6e 75 65 2e 2e 2e 27 0d | 09 72 65 61 64 28 35 2c |nue...'.|.read(5,|
|00000440| 39 39 29 20 6a 75 6e 6b | 0d 09 0d 09 77 72 69 74 |99) junk|....writ|
|00000450| 65 28 36 2c 2a 29 20 27 | 23 23 23 23 23 23 23 23 |e(6,*) '|########|
|00000460| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000470| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000480| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000490| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000004a0| 23 23 27 0d 09 77 72 69 | 74 65 28 36 2c 2a 29 20 |##'..wri|te(6,*) |
|000004b0| 27 20 49 66 20 79 6f 75 | 20 6e 6f 74 69 63 65 64 |' If you| noticed|
|000004c0| 20 74 68 61 74 20 66 6c | 6f 61 74 69 6e 67 20 70 | that fl|oating p|
|000004d0| 6f 69 6e 74 20 76 61 6c | 75 65 73 20 64 69 64 20 |oint val|ues did |
|000004e0| 6e 6f 74 20 72 6f 75 6e | 64 20 63 6f 72 72 65 63 |not roun|d correc|
|000004f0| 74 6c 79 20 77 68 65 6e | 27 0d 09 77 72 69 74 65 |tly when|'..write|
|00000500| 28 36 2c 2a 29 20 27 20 | 64 69 73 70 6c 61 79 65 |(6,*) ' |displaye|
|00000510| 64 2c 20 70 6c 65 61 73 | 65 20 72 65 61 64 20 74 |d, pleas|e read t|
|00000520| 68 65 20 65 6e 63 6c 6f | 73 65 64 20 66 69 6c 65 |he enclo|sed file|
|00000530| 20 22 49 66 20 46 6c 6f | 61 74 73 20 44 6f 6e 5c | "If Flo|ats Don\|
|00000540| 27 74 20 44 69 73 70 6c | 61 79 20 52 69 67 68 74 |'t Displ|ay Right|
|00000550| 22 27 0d 09 77 72 69 74 | 65 28 36 2c 2a 29 20 27 |"'..writ|e(6,*) '|
|00000560| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000570| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000580| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000590| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000005a0| 23 23 23 23 23 23 23 23 | 23 23 27 0d 09 77 72 69 |########|##'..wri|
|000005b0| 74 65 28 20 36 2c 20 2a | 20 29 20 27 5c 6e 2a 2a |te( 6, *| ) '\n**|
|000005c0| 2a 2a 2a 20 20 20 54 68 | 69 73 20 63 6f 6d 70 6c |***   Th|is compl|
|000005d0| 65 74 65 73 20 61 6c 6c | 20 6f 66 20 74 68 65 20 |etes all| of the |
|000005e0| 74 65 73 74 73 20 20 20 | 2a 2a 2a 2a 2a 27 0d 09 |tests   |*****'..|
|000005f0| 0d 09 73 74 6f 70 0d 09 | 65 6e 64 0d 09 0d 09 0d |..stop..|end.....|
|00000600| 0d 63 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.c******|********|
|00000610| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000620| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000630| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000640| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0d 63 0d 63 09 53 |********|**.c.c.S|
|00000650| 75 62 72 6f 75 74 69 6e | 65 20 74 6f 20 64 6f 20 |ubroutin|e to do |
|00000660| 74 68 65 20 49 2f 4f 20 | 74 65 73 74 73 0d 63 0d |the I/O |tests.c.|
|00000670| 63 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |c*******|********|
|00000680| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000690| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000006a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000006b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0d 09 0d 09 73 75 62 |********|*....sub|
|000006c0| 72 6f 75 74 69 6e 65 20 | 20 69 5f 6f 5f 74 65 73 |routine | i_o_tes|
|000006d0| 74 0d 09 64 69 6d 65 6e | 73 69 6f 6e 20 61 28 35 |t..dimen|sion a(5|
|000006e0| 29 2c 20 6a 28 35 29 0d | 09 64 6f 75 62 6c 65 20 |), j(5).|.double |
|000006f0| 70 72 65 63 69 73 69 6f | 6e 20 20 64 78 0d 09 63 |precisio|n  dx..c|
|00000700| 68 61 72 61 63 74 65 72 | 20 74 65 78 74 2a 34 30 |haracter| text*40|
|00000710| 0d 09 0d 63 20 09 53 63 | 72 65 65 6e 20 49 2f 4f |...c .Sc|reen I/O|
|00000720| 20 74 65 73 74 73 0d 0d | 09 77 72 69 74 65 28 36 | tests..|.write(6|
|00000730| 2c 2a 29 20 27 5c 6e 50 | 61 72 74 20 31 3a 20 20 |,*) '\nP|art 1:  |
|00000740| 53 63 72 65 65 6e 20 49 | 2f 4f 20 74 65 73 74 73 |Screen I|/O tests|
|00000750| 2e 5c 6e 5c 6e 45 6e 74 | 65 72 20 61 6e 20 69 6e |.\n\nEnt|er an in|
|00000760| 74 65 67 65 72 20 76 61 | 6c 75 65 2e 27 0d 09 72 |teger va|lue.'..r|
|00000770| 65 61 64 28 35 2c 2a 29 | 20 69 0d 09 77 72 69 74 |ead(5,*)| i..writ|
|00000780| 65 28 36 2c 2a 29 20 27 | 54 68 65 20 6e 75 6d 62 |e(6,*) '|The numb|
|00000790| 65 72 20 79 6f 75 20 65 | 6e 74 65 72 65 64 20 77 |er you e|ntered w|
|000007a0| 61 73 3a 27 2c 20 69 0d | 0d 09 77 72 69 74 65 28 |as:', i.|..write(|
|000007b0| 36 2c 2a 29 20 27 5c 6e | 45 6e 74 65 72 20 61 20 |6,*) '\n|Enter a |
|000007c0| 73 69 6e 67 6c 65 20 70 | 72 65 63 69 73 69 6f 6e |single p|recision|
|000007d0| 20 66 6c 6f 61 74 69 6e | 67 20 70 6f 69 6e 74 20 | floatin|g point |
|000007e0| 76 61 6c 75 65 2e 2e 2e | 27 0d 09 72 65 61 64 28 |value...|'..read(|
|000007f0| 35 2c 2a 29 20 78 0d 09 | 77 72 69 74 65 28 36 2c |5,*) x..|write(6,|
|00000800| 2a 29 20 27 54 68 65 20 | 6e 75 6d 62 65 72 20 79 |*) 'The |number y|
|00000810| 6f 75 20 65 6e 74 65 72 | 65 64 20 77 61 73 3a 20 |ou enter|ed was: |
|00000820| 27 2c 20 78 0d 0d 09 77 | 72 69 74 65 28 36 2c 2a |', x...w|rite(6,*|
|00000830| 29 20 27 5c 6e 45 6e 74 | 65 72 20 61 20 64 6f 75 |) '\nEnt|er a dou|
|00000840| 62 6c 65 20 70 72 65 63 | 69 73 69 6f 6e 20 66 6c |ble prec|ision fl|
|00000850| 6f 61 74 69 6e 67 20 70 | 6f 69 6e 74 20 76 61 6c |oating p|oint val|
|00000860| 75 65 2e 2e 2e 27 0d 09 | 72 65 61 64 28 35 2c 2a |ue...'..|read(5,*|
|00000870| 29 20 64 78 0d 09 77 72 | 69 74 65 28 36 2c 2a 29 |) dx..wr|ite(6,*)|
|00000880| 20 27 54 68 65 20 6e 75 | 6d 62 65 72 20 79 6f 75 | 'The nu|mber you|
|00000890| 20 65 6e 74 65 72 65 64 | 20 77 61 73 3a 20 27 2c | entered| was: ',|
|000008a0| 20 64 78 0d 0d 09 77 72 | 69 74 65 28 36 2c 2a 29 | dx...wr|ite(6,*)|
|000008b0| 20 27 5c 6e 45 6e 74 65 | 72 20 73 6f 6d 65 20 74 | '\nEnte|r some t|
|000008c0| 65 78 74 20 28 34 30 20 | 63 68 61 72 20 6d 61 78 |ext (40 |char max|
|000008d0| 29 2e 2e 2e 27 0d 09 72 | 65 61 64 28 35 2c 2a 29 |)...'..r|ead(5,*)|
|000008e0| 20 74 65 78 74 0d 09 77 | 72 69 74 65 28 36 2c 2a | text..w|rite(6,*|
|000008f0| 29 20 27 54 68 65 20 74 | 65 78 74 20 79 6f 75 20 |) 'The t|ext you |
|00000900| 65 6e 74 65 72 65 64 20 | 77 61 73 3a 20 27 2c 20 |entered |was: ', |
|00000910| 74 65 78 74 0d 09 0d 09 | 77 72 69 74 65 28 36 2c |text....|write(6,|
|00000920| 2a 29 20 27 5c 6e 50 61 | 72 74 20 32 3a 20 20 66 |*) '\nPa|rt 2:  f|
|00000930| 69 6c 65 20 49 2f 4f 20 | 74 65 73 74 73 2e 20 20 |ile I/O |tests.  |
|00000940| 48 69 74 20 72 65 74 75 | 72 6e 20 74 6f 20 63 6f |Hit retu|rn to co|
|00000950| 6e 74 69 6e 75 65 2e 2e | 2e 27 0d 09 72 65 61 64 |ntinue..|.'..read|
|00000960| 28 35 2c 33 39 39 29 20 | 74 65 78 74 0d 33 39 39 |(5,399) |text.399|
|00000970| 09 66 6f 72 6d 61 74 28 | 20 61 31 20 29 0d 09 0d |.format(| a1 )...|
|00000980| 63 20 09 46 69 6c 65 20 | 49 2f 4f 20 74 65 73 74 |c .File |I/O test|
|00000990| 73 3a 20 20 53 74 6f 72 | 65 20 73 6f 6d 65 20 76 |s:  Stor|e some v|
|000009a0| 61 6c 75 65 73 20 61 6e | 64 20 77 72 69 74 65 20 |alues an|d write |
|000009b0| 74 68 65 6d 20 74 6f 20 | 66 69 6c 65 0d 0d 09 64 |them to |file...d|
|000009c0| 6f 20 69 20 3d 20 31 2c | 35 0d 09 20 20 6a 28 69 |o i = 1,|5..  j(i|
|000009d0| 29 20 3d 20 69 0d 09 20 | 20 61 28 69 29 20 3d 20 |) = i.. | a(i) = |
|000009e0| 64 62 6c 65 28 69 29 0d | 09 65 6e 64 64 6f 0d 09 |dble(i).|.enddo..|
|000009f0| 74 65 78 74 20 3d 20 27 | 41 20 74 65 73 74 20 6d |text = '|A test m|
|00000a00| 65 73 73 61 67 65 2e 27 | 0d 09 6f 70 65 6e 28 36 |essage.'|..open(6|
|00000a10| 30 2c 66 69 6c 65 3d 27 | 74 65 73 74 2e 64 61 74 |0,file='|test.dat|
|00000a20| 27 2c 66 6f 72 6d 3d 27 | 75 6e 66 6f 72 6d 61 74 |',form='|unformat|
|00000a30| 74 65 64 27 29 0d 09 77 | 72 69 74 65 28 36 30 29 |ted')..w|rite(60)|
|00000a40| 20 74 65 78 74 2c 20 6a | 2c 20 61 0d 09 63 6c 6f | text, j|, a..clo|
|00000a50| 73 65 28 36 30 29 0d 09 | 0d 09 77 72 69 74 65 28 |se(60)..|..write(|
|00000a60| 36 2c 2a 29 20 27 57 72 | 6f 74 65 20 74 68 65 20 |6,*) 'Wr|ote the |
|00000a70| 66 6f 6c 6c 6f 77 69 6e | 67 20 64 61 74 61 20 74 |followin|g data t|
|00000a80| 6f 20 66 69 6c 65 20 74 | 65 73 74 2e 64 61 74 3a |o file t|est.dat:|
|00000a90| 5c 6e 27 0d 09 77 72 69 | 74 65 28 36 2c 20 33 30 |\n'..wri|te(6, 30|
|00000aa0| 34 29 20 74 65 78 74 2c | 20 28 6a 28 69 29 2c 20 |4) text,| (j(i), |
|00000ab0| 69 20 3d 31 2c 35 29 2c | 20 28 61 28 69 29 2c 20 |i =1,5),| (a(i), |
|00000ac0| 69 20 3d 20 31 2c 35 29 | 0d 33 30 34 09 66 6f 72 |i = 1,5)|.304.for|
|00000ad0| 6d 61 74 28 20 35 78 2c | 20 61 32 30 2c 20 35 28 |mat( 5x,| a20, 5(|
|00000ae0| 69 31 2c 20 32 78 29 2c | 20 35 78 2c 20 35 28 66 |i1, 2x),| 5x, 5(f|
|00000af0| 34 2e 32 2c 20 32 78 29 | 20 29 0d 0d 63 20 52 65 |4.2, 2x)| )..c Re|
|00000b00| 73 65 74 20 74 68 65 20 | 76 61 72 69 61 62 6c 65 |set the |variable|
|00000b10| 73 20 61 6e 64 20 72 65 | 61 64 20 74 68 65 6d 20 |s and re|ad them |
|00000b20| 62 61 63 6b 0d 0d 09 64 | 6f 20 69 20 3d 20 31 2c |back...d|o i = 1,|
|00000b30| 35 0d 09 20 20 6a 28 69 | 29 20 3d 20 39 39 0d 09 |5..  j(i|) = 99..|
|00000b40| 20 20 61 28 69 29 20 3d | 20 39 39 0d 09 65 6e 64 |  a(i) =| 99..end|
|00000b50| 64 6f 0d 09 74 65 78 74 | 20 3d 20 27 72 65 73 65 |do..text| = 'rese|
|00000b60| 74 27 0d 09 6f 70 65 6e | 28 35 30 2c 66 69 6c 65 |t'..open|(50,file|
|00000b70| 3d 27 74 65 73 74 2e 64 | 61 74 27 2c 66 6f 72 6d |='test.d|at',form|
|00000b80| 3d 27 75 6e 66 6f 72 6d | 61 74 74 65 64 27 29 0d |='unform|atted').|
|00000b90| 09 72 65 61 64 28 35 30 | 29 20 74 65 78 74 2c 20 |.read(50|) text, |
|00000ba0| 6a 2c 20 61 0d 09 63 6c | 6f 73 65 28 35 30 29 0d |j, a..cl|ose(50).|
|00000bb0| 09 0d 09 77 72 69 74 65 | 28 36 2c 20 2a 29 20 27 |...write|(6, *) '|
|00000bc0| 5c 6e 52 65 61 64 20 74 | 68 65 20 66 6f 6c 6c 6f |\nRead t|he follo|
|00000bd0| 77 69 6e 67 20 64 61 74 | 61 20 66 72 6f 6d 20 66 |wing dat|a from f|
|00000be0| 69 6c 65 20 74 65 73 74 | 2e 64 61 74 3a 5c 6e 27 |ile test|.dat:\n'|
|00000bf0| 20 0d 09 77 72 69 74 65 | 28 36 2c 20 33 30 34 29 | ..write|(6, 304)|
|00000c00| 20 74 65 78 74 2c 20 28 | 6a 28 69 29 2c 20 69 20 | text, (|j(i), i |
|00000c10| 3d 31 2c 35 29 2c 20 28 | 61 28 69 29 2c 20 69 20 |=1,5), (|a(i), i |
|00000c20| 3d 20 31 2c 35 29 0d 0d | 09 72 65 74 75 72 6e 0d |= 1,5)..|.return.|
|00000c30| 09 65 6e 64 0d 09 0d 09 | 0d 09 0d 09 0d 63 2a 2a |.end....|.....c**|
|00000c40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000c50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000c60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000c70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000c80| 2a 2a 2a 2a 2a 2a 0d 63 | 0d 63 09 53 75 62 72 6f |******.c|.c.Subro|
|00000c90| 75 74 69 6e 65 20 74 6f | 20 64 6f 20 74 68 65 20 |utine to| do the |
|00000ca0| 69 6e 74 65 67 65 72 20 | 6d 61 74 68 20 74 65 73 |integer |math tes|
|00000cb0| 74 73 0d 63 0d 63 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |ts.c.c**|********|
|00000cc0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000cd0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000ce0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000cf0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0d 0d |********|******..|
|00000d00| 09 73 75 62 72 6f 75 74 | 69 6e 65 20 20 69 6e 74 |.subrout|ine  int|
|00000d10| 5f 74 65 73 74 28 20 6d | 20 29 0d 09 77 72 69 74 |_test( m| )..writ|
|00000d20| 65 28 20 36 2c 20 2a 29 | 20 27 5c 6e 47 65 6e 65 |e( 6, *)| '\nGene|
|00000d30| 72 61 74 65 20 61 20 74 | 61 62 6c 65 20 6f 66 20 |rate a t|able of |
|00000d40| 69 6e 74 65 67 65 72 73 | 2c 20 73 71 75 61 72 65 |integers|, square|
|00000d50| 73 2c 20 63 75 62 65 73 | 2c 20 61 6e 64 20 74 68 |s, cubes|, and th|
|00000d60| 65 69 72 20 68 61 6c 76 | 65 73 2e 5c 6e 27 0d 09 |eir halv|es.\n'..|
|00000d70| 77 72 69 74 65 28 36 2c | 20 32 30 33 29 0d 32 30 |write(6,| 203).20|
|00000d80| 33 09 66 6f 72 6d 61 74 | 28 20 31 30 78 2c 20 27 |3.format|( 10x, '|
|00000d90| 6e 27 2c 20 35 78 2c 20 | 27 6e 5e 32 27 2c 20 35 |n', 5x, |'n^2', 5|
|00000da0| 78 2c 20 27 6e 5e 33 27 | 2c 20 35 78 2c 20 27 6e |x, 'n^3'|, 5x, 'n|
|00000db0| 2f 32 27 2c 20 33 78 2c | 20 27 6e 5e 32 2f 32 27 |/2', 3x,| 'n^2/2'|
|00000dc0| 2c 20 33 78 2c 20 27 6e | 5e 33 2f 32 27 20 29 0d |, 3x, 'n|^3/2' ).|
|00000dd0| 09 64 6f 20 69 20 3d 20 | 31 2c 20 6d 0d 09 09 6a |.do i = |1, m...j|
|00000de0| 20 3d 20 69 2a 2a 32 0d | 09 09 6b 20 3d 20 69 2a | = i**2.|..k = i*|
|00000df0| 2a 33 0d 09 09 77 72 69 | 74 65 28 20 36 2c 20 32 |*3...wri|te( 6, 2|
|00000e00| 30 32 20 29 20 20 69 2c | 20 6a 2c 20 6b 2c 20 69 |02 )  i,| j, k, i|
|00000e10| 2f 32 2c 20 6a 2f 32 2c | 20 6b 2f 32 0d 32 30 32 |/2, j/2,| k/2.202|
|00000e20| 09 09 66 6f 72 6d 61 74 | 28 20 35 78 2c 20 36 28 |..format|( 5x, 6(|
|00000e30| 20 69 36 2c 20 32 78 20 | 29 20 29 0d 09 65 6e 64 | i6, 2x |) )..end|
|00000e40| 20 64 6f 0d 09 72 65 74 | 75 72 6e 0d 09 65 6e 64 | do..ret|urn..end|
|00000e50| 0d 0d 0d 0d 63 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |....c***|********|
|00000e60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000e70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000e80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000e90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0d 63 0d |********|*****.c.|
|00000ea0| 63 09 53 75 62 72 6f 75 | 74 69 6e 65 20 74 6f 20 |c.Subrou|tine to |
|00000eb0| 64 6f 20 74 68 65 20 66 | 6c 6f 61 74 69 6e 67 20 |do the f|loating |
|00000ec0| 70 6f 69 6e 74 20 6d 61 | 74 68 20 74 65 73 74 73 |point ma|th tests|
|00000ed0| 0d 63 0d 63 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.c.c****|********|
|00000ee0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000ef0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000f00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000f10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0d 0d 09 73 |********|****...s|
|00000f20| 75 62 72 6f 75 74 69 6e | 65 20 20 66 6c 74 5f 74 |ubroutin|e  flt_t|
|00000f30| 65 73 74 28 20 6d 20 29 | 0d 09 77 72 69 74 65 28 |est( m )|..write(|
|00000f40| 20 36 2c 20 2a 20 29 20 | 27 5c 6e 47 65 6e 65 72 | 6, * ) |'\nGener|
|00000f50| 61 74 65 20 61 20 74 61 | 62 6c 65 20 6f 66 20 66 |ate a ta|ble of f|
|00000f60| 6c 6f 61 74 73 2c 20 74 | 68 65 69 72 20 73 71 75 |loats, t|heir squ|
|00000f70| 61 72 65 73 2c 20 63 75 | 62 65 73 2c 20 61 6e 64 |ares, cu|bes, and|
|00000f80| 20 74 68 65 69 72 20 68 | 61 6c 76 65 73 2e 5c 6e | their h|alves.\n|
|00000f90| 27 0d 09 77 72 69 74 65 | 28 36 2c 20 32 30 35 29 |'..write|(6, 205)|
|00000fa0| 0d 32 30 35 09 66 6f 72 | 6d 61 74 28 20 31 32 78 |.205.for|mat( 12x|
|00000fb0| 2c 20 27 78 27 2c 20 36 | 78 2c 20 27 78 5e 32 27 |, 'x', 6|x, 'x^2'|
|00000fc0| 2c 20 36 78 2c 20 27 78 | 5e 33 27 2c 20 36 78 2c |, 6x, 'x|^3', 6x,|
|00000fd0| 20 27 78 2f 32 27 2c 20 | 34 78 2c 20 27 78 5e 32 | 'x/2', |4x, 'x^2|
|00000fe0| 2f 32 27 2c 20 34 78 2c | 20 27 78 5e 33 2f 32 27 |/2', 4x,| 'x^3/2'|
|00000ff0| 20 29 0d 09 64 6f 20 69 | 20 3d 20 31 2c 20 6d 0d | )..do i| = 1, m.|
|00001000| 09 09 78 31 20 3d 20 69 | 2a 31 2e 30 0d 09 09 78 |..x1 = i|*1.0...x|
|00001010| 32 20 3d 20 78 31 2a 2a | 32 0d 09 09 78 33 20 3d |2 = x1**|2...x3 =|
|00001020| 20 78 31 2a 2a 33 0d 09 | 09 77 72 69 74 65 28 20 | x1**3..|.write( |
|00001030| 36 2c 20 32 30 31 20 29 | 20 20 78 31 2c 20 78 32 |6, 201 )|  x1, x2|
|00001040| 2c 20 78 33 2c 20 78 31 | 2f 32 2c 20 78 32 2f 32 |, x3, x1|/2, x2/2|
|00001050| 2c 20 78 33 2f 32 0d 32 | 30 31 09 09 66 6f 72 6d |, x3/2.2|01..form|
|00001060| 61 74 28 20 35 78 2c 20 | 36 28 20 66 38 2e 32 2c |at( 5x, |6( f8.2,|
|00001070| 20 31 78 20 29 20 29 0d | 09 65 6e 64 20 64 6f 0d | 1x ) ).|.end do.|
|00001080| 09 72 65 74 75 72 6e 0d | 09 65 6e 64 0d 0d 0d 0d |.return.|.end....|
|00001090| 0d 63 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.c******|********|
|000010a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000010b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000010c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000010d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0d 63 0d 63 09 53 |********|**.c.c.S|
|000010e0| 75 62 72 6f 75 74 69 6e | 65 20 74 6f 20 64 6f 20 |ubroutin|e to do |
|000010f0| 74 68 65 20 61 6c 67 65 | 62 72 61 69 63 20 66 75 |the alge|braic fu|
|00001100| 6e 63 74 69 6f 6e 20 74 | 65 73 74 73 0d 63 0d 63 |nction t|ests.c.c|
|00001110| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001120| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001130| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001140| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001150| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 0d 09 73 75 62 72 6f |********|...subro|
|00001160| 75 74 69 6e 65 20 20 61 | 6c 67 5f 74 65 73 74 28 |utine  a|lg_test(|
|00001170| 20 6d 20 29 0d 09 77 72 | 69 74 65 28 20 36 2c 20 | m )..wr|ite( 6, |
|00001180| 2a 20 29 20 27 5c 6e 47 | 65 6e 65 72 61 74 65 20 |* ) '\nG|enerate |
|00001190| 61 20 74 61 62 6c 65 20 | 6f 66 20 66 6c 6f 61 74 |a table |of float|
|000011a0| 73 2c 20 73 71 75 61 72 | 65 20 26 20 63 75 62 65 |s, squar|e & cube|
|000011b0| 20 72 6f 6f 74 73 2c 20 | 61 6e 64 20 74 68 65 69 | roots, |and thei|
|000011c0| 72 20 73 71 75 61 72 65 | 73 20 26 20 63 75 62 65 |r square|s & cube|
|000011d0| 73 2e 5c 6e 27 0d 09 77 | 72 69 74 65 28 36 2c 20 |s.\n'..w|rite(6, |
|000011e0| 33 30 35 29 0d 33 30 35 | 09 66 6f 72 6d 61 74 28 |305).305|.format(|
|000011f0| 20 31 30 78 2c 20 27 78 | 27 2c 20 37 78 2c 20 27 | 10x, 'x|', 7x, '|
|00001200| 53 51 52 54 28 78 29 27 | 2c 20 34 78 2c 20 27 43 |SQRT(x)'|, 4x, 'C|
|00001210| 55 52 54 28 78 29 27 2c | 20 33 78 2c 20 27 53 51 |URT(x)',| 3x, 'SQ|
|00001220| 52 54 28 78 29 5e 32 27 | 2c 20 32 78 2c 20 27 43 |RT(x)^2'|, 2x, 'C|
|00001230| 55 52 54 28 78 29 5e 33 | 27 20 29 0d 09 64 6f 20 |URT(x)^3|' )..do |
|00001240| 69 20 3d 20 31 2c 20 6d | 0d 09 09 78 31 20 3d 20 |i = 1, m|...x1 = |
|00001250| 69 2a 31 2e 30 0d 09 09 | 78 32 20 3d 20 73 71 72 |i*1.0...|x2 = sqr|
|00001260| 74 28 78 31 29 0d 09 09 | 78 33 20 3d 20 78 31 2a |t(x1)...|x3 = x1*|
|00001270| 2a 28 31 2e 30 2f 33 2e | 30 29 0d 09 09 77 72 69 |*(1.0/3.|0)...wri|
|00001280| 74 65 28 20 36 2c 20 33 | 30 31 20 29 20 20 78 31 |te( 6, 3|01 )  x1|
|00001290| 2c 20 78 32 2c 20 78 33 | 2c 20 78 32 2a 2a 32 2c |, x2, x3|, x2**2,|
|000012a0| 20 78 33 2a 2a 33 0d 33 | 30 31 09 09 66 6f 72 6d | x3**3.3|01..form|
|000012b0| 61 74 28 20 35 78 2c 20 | 36 28 20 66 39 2e 36 2c |at( 5x, |6( f9.6,|
|000012c0| 20 32 78 20 29 20 29 0d | 09 65 6e 64 20 64 6f 0d | 2x ) ).|.end do.|
|000012d0| 09 72 65 74 75 72 6e 0d | 09 65 6e 64 0d 0d 0d 0d |.return.|.end....|
|000012e0| 0d 63 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.c******|********|
|000012f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001300| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001310| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001320| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0d 63 0d 63 09 53 |********|**.c.c.S|
|00001330| 75 62 72 6f 75 74 69 6e | 65 20 74 6f 20 64 6f 20 |ubroutin|e to do |
|00001340| 74 68 65 20 74 72 61 6e | 73 63 65 6e 64 65 6e 74 |the tran|scendent|
|00001350| 61 6c 20 66 75 6e 63 74 | 69 6f 6e 20 74 65 73 74 |al funct|ion test|
|00001360| 73 0d 63 0d 63 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |s.c.c***|********|
|00001370| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001380| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001390| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000013a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0d 0d 09 |********|*****...|
|000013b0| 73 75 62 72 6f 75 74 69 | 6e 65 20 20 74 72 6e 5f |subrouti|ne  trn_|
|000013c0| 74 65 73 74 0d 09 64 6f | 75 62 6c 65 20 70 72 65 |test..do|uble pre|
|000013d0| 63 69 73 69 6f 6e 20 20 | 70 69 2c 20 78 2c 20 73 |cision  |pi, x, s|
|000013e0| 2c 20 63 2c 20 73 32 2c | 20 63 32 0d 09 63 68 61 |, c, s2,| c2..cha|
|000013f0| 72 61 63 74 65 72 20 6a | 75 6e 6b 2a 32 0d 09 0d |racter j|unk*2...|
|00001400| 09 70 69 20 3d 20 33 2e | 31 34 31 35 39 32 36 35 |.pi = 3.|14159265|
|00001410| 33 35 38 39 37 39 33 0d | 09 77 72 69 74 65 28 20 |3589793.|.write( |
|00001420| 36 2c 20 2a 20 29 20 27 | 5c 6e 50 61 72 74 20 31 |6, * ) '|\nPart 1|
|00001430| 3a 20 54 72 69 67 20 46 | 75 6e 63 74 69 6f 6e 73 |: Trig F|unctions|
|00001440| 27 0d 09 77 72 69 74 65 | 28 20 36 2c 20 2a 29 20 |'..write|( 6, *) |
|00001450| 27 5c 6e 47 65 6e 65 72 | 61 74 65 20 61 20 74 61 |'\nGener|ate a ta|
|00001460| 62 6c 65 20 6f 66 20 78 | 2c 20 73 69 6e 28 78 29 |ble of x|, sin(x)|
|00001470| 2c 20 63 6f 73 28 78 29 | 20 61 6e 64 20 74 68 65 |, cos(x)| and the|
|00001480| 20 73 75 6d 20 6f 66 20 | 74 68 65 69 72 20 73 71 | sum of |their sq|
|00001490| 75 61 72 65 73 2e 5c 6e | 27 0d 09 77 72 69 74 65 |uares.\n|'..write|
|000014a0| 28 36 2c 20 32 30 37 29 | 0d 32 30 37 09 66 6f 72 |(6, 207)|.207.for|
|000014b0| 6d 61 74 28 20 39 78 2c | 20 27 78 27 2c 20 39 78 |mat( 9x,| 'x', 9x|
|000014c0| 2c 20 27 73 69 6e 28 78 | 29 27 2c 20 38 78 2c 20 |, 'sin(x|)', 8x, |
|000014d0| 27 63 6f 73 28 78 29 27 | 2c 20 34 78 2c 20 27 73 |'cos(x)'|, 4x, 's|
|000014e0| 69 6e 28 78 29 5e 32 20 | 2b 20 63 6f 73 28 78 29 |in(x)^2 |+ cos(x)|
|000014f0| 5e 32 27 20 29 0d 09 64 | 6f 20 69 20 3d 20 31 2c |^2' )..d|o i = 1,|
|00001500| 20 31 32 0d 09 09 78 20 | 3d 20 69 20 2a 20 70 69 | 12...x |= i * pi|
|00001510| 20 2f 20 36 2e 30 0d 09 | 09 73 20 3d 20 64 73 69 | / 6.0..|.s = dsi|
|00001520| 6e 28 20 78 20 29 0d 09 | 09 63 20 3d 20 64 63 6f |n( x )..|.c = dco|
|00001530| 73 28 20 78 20 29 0d 09 | 09 73 32 20 3d 20 73 2a |s( x )..|.s2 = s*|
|00001540| 2a 32 0d 09 09 63 32 20 | 3d 20 63 2a 2a 32 0d 09 |*2...c2 |= c**2..|
|00001550| 09 77 72 69 74 65 28 20 | 36 2c 20 32 30 30 29 20 |.write( |6, 200) |
|00001560| 69 2c 20 73 2c 20 63 2c | 20 73 32 20 2b 20 63 32 |i, s, c,| s2 + c2|
|00001570| 0d 32 30 30 09 09 66 6f | 72 6d 61 74 28 20 35 78 |.200..fo|rmat( 5x|
|00001580| 2c 20 69 32 2c 27 2a 70 | 69 2f 36 27 20 33 78 2c |, i2,'*p|i/6' 3x,|
|00001590| 20 66 31 31 2e 38 2c 20 | 33 78 2c 20 66 31 31 2e | f11.8, |3x, f11.|
|000015a0| 38 2c 20 33 78 2c 20 66 | 31 35 2e 31 30 20 29 0d |8, 3x, f|15.10 ).|
|000015b0| 09 65 6e 64 20 64 6f 0d | 0d 09 77 72 69 74 65 28 |.end do.|..write(|
|000015c0| 36 2c 2a 29 20 27 5c 6e | 50 61 72 74 20 32 3a 20 |6,*) '\n|Part 2: |
|000015d0| 20 45 78 70 6f 6e 65 6e | 74 69 61 6c 20 66 75 6e | Exponen|tial fun|
|000015e0| 63 74 69 6f 6e 73 3b 20 | 68 69 74 20 72 65 74 75 |ctions; |hit retu|
|000015f0| 72 6e 20 74 6f 20 63 6f | 6e 74 69 6e 75 65 2e 2e |rn to co|ntinue..|
|00001600| 2e 27 0d 09 72 65 61 64 | 28 35 2c 32 39 39 29 20 |.'..read|(5,299) |
|00001610| 6a 75 6e 6b 0d 32 39 39 | 09 66 6f 72 6d 61 74 28 |junk.299|.format(|
|00001620| 20 61 31 20 29 0d 0d 09 | 77 72 69 74 65 28 36 2c | a1 )...|write(6,|
|00001630| 2a 29 20 27 47 65 6e 65 | 72 61 74 65 20 61 20 74 |*) 'Gene|rate a t|
|00001640| 61 62 6c 65 20 6f 66 20 | 78 2c 20 6c 6f 67 28 78 |able of |x, log(x|
|00001650| 29 2c 20 61 6e 64 20 65 | 78 70 28 6c 6f 67 28 78 |), and e|xp(log(x|
|00001660| 29 29 5c 6e 27 0d 09 77 | 72 69 74 65 28 36 2c 20 |))\n'..w|rite(6, |
|00001670| 32 30 38 29 0d 32 30 38 | 09 66 6f 72 6d 61 74 28 |208).208|.format(|
|00001680| 20 31 31 78 2c 20 27 78 | 27 2c 20 31 36 78 2c 20 | 11x, 'x|', 16x, |
|00001690| 27 6c 6f 67 28 78 29 27 | 2c 20 39 78 2c 20 27 65 |'log(x)'|, 9x, 'e|
|000016a0| 78 70 28 6c 6f 67 28 78 | 29 29 27 20 29 0d 09 64 |xp(log(x|))' )..d|
|000016b0| 6f 20 69 20 3d 20 31 2c | 20 31 30 0d 09 09 78 20 |o i = 1,| 10...x |
|000016c0| 3d 20 64 62 6c 65 28 69 | 29 0d 09 09 73 20 3d 20 |= dble(i|)...s = |
|000016d0| 64 6c 6f 67 28 78 29 0d | 09 09 63 20 3d 20 64 65 |dlog(x).|..c = de|
|000016e0| 78 70 28 73 29 0d 09 09 | 77 72 69 74 65 28 36 2c |xp(s)...|write(6,|
|000016f0| 20 32 30 31 29 20 78 2c | 20 73 2c 20 63 0d 32 30 | 201) x,| s, c.20|
|00001700| 31 09 09 66 6f 72 6d 61 | 74 28 20 35 78 2c 20 66 |1..forma|t( 5x, f|
|00001710| 31 33 2e 31 30 2c 20 35 | 78 2c 20 66 31 33 2e 31 |13.10, 5|x, f13.1|
|00001720| 30 2c 20 35 78 2c 20 66 | 31 33 2e 31 30 20 29 0d |0, 5x, f|13.10 ).|
|00001730| 09 65 6e 64 20 64 6f 0d | 09 0d 09 72 65 74 75 72 |.end do.|...retur|
|00001740| 6e 0d 09 65 6e 64 0d 00 | 00 00 00 00 00 00 00 00 |n..end..|........|
|00001750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001780| 00 00 01 00 00 00 01 54 | 00 00 00 54 00 00 00 46 |.......T|...T...F|
|00001790| 00 00 00 14 ff ff 01 0a | 16 0c 00 00 00 00 00 16 |........|........|
|000017a0| ff ff 01 0a 68 49 00 00 | 00 00 00 17 ff ff 00 0a |....hI..|........|
|000017b0| 06 74 65 73 74 2e 66 74 | 02 00 00 00 50 61 72 74 |.test.ft|....Part|
|000017c0| 53 49 54 21 00 00 00 00 | 00 00 00 00 00 02 9c d3 |SIT!....|........|
|000017d0| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|000017e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000017f0| 00 00 ab f2 17 42 00 00 | 00 00 00 00 01 9a 00 3f |.....B..|.......?|
|00001800| ff ff 01 0d 74 06 00 00 | 00 00 bf ff ff ff 51 0d |....t...|......Q.|
|00001810| 7d 5a 00 00 00 00 bf b5 | ff ff 51 0d 85 0e 00 00 |}Z......|..Q.....|
|00001820| 00 00 bf b6 ff ff 51 0d | 85 94 00 00 00 00 bf 94 |......Q.|........|
|00001830| ff ff 60 0d 86 28 00 00 | 00 00 bf 95 ff ff 61 0d |..`..(..|......a.|
|00001840| 86 ac 00 00 00 00 00 00 | ff ff 61 0d 87 1c 00 00 |........|..a.....|
|00001850| 00 00 3f ff ff ff 61 0d | 87 88 00 00 00 00 bf 94 |..?...a.|........|
|00001860| ff ff 60 0d 88 08 00 00 | 00 00 bf 95 ff ff 61 0d |..`.....|......a.|
|00001870| 88 4c 00 00 00 00 00 00 | ff ff 61 0d 88 8e 00 00 |.L......|..a.....|
|00001880| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00001890| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018a0| 00 00 00 00 00 00 00 03 | 00 04 01 16 00 05 01 d9 |........|........|
|000018b0| 02 79 01 16 00 05 01 d9 | 02 79 ab 95 f8 07 00 00 |.y......|.y......|
|000018c0| 11 ab 00 00 11 ab 00 00 | 12 48 00 00 00 00 00 04 |........|.H......|
|000018d0| 00 01 00 01 00 00 01 00 | 00 00 01 54 00 00 00 54 |........|...T...T|
|000018e0| 00 00 00 46 00 63 4c 88 | 0f cc 00 00 00 1c 00 46 |...F.cL.|.......F|
|000018f0| 00 01 4d 50 53 52 00 00 | 00 12 4d 57 42 42 00 00 |..MPSR..|..MWBB..|
|00001900| 00 1e 03 ed ff ff 00 00 | 00 00 00 00 00 00 03 f0 |........|........|
|00001910| ff ff 00 00 00 4c 00 00 | 00 00 00 00 00 00 00 00 |.....L..|........|
|00001920| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001930| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+